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A. VIC and PET 
I ZX SPECTRUM, ZX81 
• APPLE 
■ TRS-80 
O ORIC 


4 a ji J ^ ^ ^ 

£-^>* 6^ vjjLaJ J^l ,ji J**J1 1 ^ J\ Jli 

. <2L^UI illLj! 

cJL-ubj, L^j <jlj£ <AjJj£ ,*>1 * * 1**11 ■ ^ I ^J| ^ L u 1 _>_lj£! aj ^iT> T (■.ilTt^Tj 
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<G£Lua| -_'^j f Spectrum (EimexSOOO) jl ^ ^ 
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220 PRINT ‘ CALCULATION' 

230 PRINT ' *«««««’ 

240 PRINT 

250 PRINT ‘POWER" 

260 PRINT 'STATION >»»»>»■ 

270 PRINT “ TERNS-" 

280 PRINT " FORMER" 

290 FOR 1=1 TO 4 
300 PRINT " V 

3to Nan I 

320 PRINT " HOUSE' 

330 PRINT 

340 PRINT ‘PRESS SPACE TO START’ 

350 60SUB 810 

360 REN MAIN MENU PAGE 

370 CLS 

380 PRINT "CHOOSE THE APPLIANCE" 
390 PRINT "THAT YOU WANT TO ENTER* 
400 PRINT "NEXT, OR TYPE 0 TO" 

410 PRINT "CALCULATE YOUR BILL" 

420 PRINT 


10 REM INITIALISE 

20 LET N=I0: REM NO, OF APPLIANCES 
30 DIM U(N! : REM UNITS USED 
I 40 DIM AS IN) : REM NAMES 
50 LET TU-0; REM POWER USED 
60 LET UP a 2.5i REM UNIT PRICE 
70 LET ASUU’COQKER" 

80 LET AK2)*"IMHERSI0N HEATER" 

90 LET A$ ( 3) -'FAN HEATER" 

100 LET At (41 =" RADIANT HEATER’ 

110 LET At (5)* "LIGHT BULB" 

120 LET At (6) = “WASHING MACHINE" 

130 LET At(7)="TELEVISI0N* 

140 LET At (8) -“RADIO" 

150 LET At(9)="CQNVECT0R HEATER* 

160 LET At!10) s "HI-FI STEREO" 

170 REM * PRINT INTRO PAGE * 

130 CLS 
190 PRINT 
200 PRINT 

210 PRINT ’ELECTRICITY BILL" 



UNITS" 


900 FOR 1*1 TO 7 
910 PRINT 
920 NEXT I 

930 PRINT "HON LONS IS THIS APPLIANCE' 
940 PRINT ‘USED EACH NEEL, ON AVERAGE?* 
950 PRINT "(IN HOURS)* 

940 PRINT "TYPE THE NIINBER THEN* 

970 PRINT ‘PRESS RETURN" { 

980 INPUT T 

990 LET U(C)=UtC}+P»T*13 
1000 RETURN 

1010 REN HOVE DOWN 5 LINES 

1020 FOR X=J TO 5 

1030 PRINT 

1040 NETT I 

1050 RETURN 

1060 REN * COOKER * 

. 1070 PRINT AKC) 

1080 80SUB 3010 

1090 FRINT "PRESS 1) FOR RING" 

1100 PRINT " 2) FOR OVEN’ 

1110 PRINT * 3) FOR SKILL" 

1120 PRINT 
1130 INPUT I 

1140 IF K1 OR I >3 THEN GOTO 1130 
11150 ON I GOTO 1160,1200,1240 
1160 LET Nt="COOKER RING* 

1170 LET P=1 
1130 80SUB 340 

1199 RETURN 

1200 LET N$="COOKEft OVEN* - 
1210 LET P=3 

1220 60SUB 840 

1239 RETURN 

1240 LET Nt s " COOKER GRILL" 

1250 LET P=1.5 

1260 GOSUB 840 

1279 RETURN 

1280 REN * IKHERSION HEATER * 

1290 LET Nt=AtlC) 

1390 LET P*3.5 
1310 GDSU8 840 

1320 RETURN 

1330 REN * FAN HEATER * 

1340 LET NJ S 'FAN HEATER* 

1350 PRINT Nf 
1360 GOSUB 1910 

1370 PRINT "IS IT 1) FULL OK" 
if 1380 PRINT ’ 2) HALF ON" 


430 PRINT ’ 

440 FOR 1*1 TO N 
450 IF UIIDO THEN PRINT Hi" *iA»(J)i 
TAB U9MUU) 

460 IF U(I)=0 THEN PRINT il!* *;AJ (I) 

470 NEXT I 
480 PRINT 

490 PRINT “TYPE A NUMBER AND THEN’ 

500 PRINT ’PRESS ENTER "1 
510 INPUT C 

520 IF C<0 OR ON THEN GOTO 360 
530 IF C=0 THEN 60TQ 5B0 
540 CLS 
550 PRINT 

1 560 ON C GOSUB 1060,1280,1330,1530,1650, 
1700,1900,2060,2110,2160 
570 GOTO 360 
580 REN FINAL PAGE 
590 CLS 

600 FOR N=1 TO N 
610 LET TU=TU+U1W) 

620 NEXT N 
630 PRINT 

640 PRINT "ELECTRICITY BILL" 

650 PRINT " ESTIMATE" 

660 PRINT ’ **««-■•* 

670 PRINT ■ 5F0R 3 NINTHS! * 

680 PRINT 

490 PRINT "UNITS USED 
700 PRINT ;TUJ" KILONATT-HRS" 

710 PRINT 

720 PRINT "UNIT PRICE ;"iUP>‘ PENCE" 

730 LET TC=(INT(UPiTU)),MO0 ! 

740 PRINT 
750 PRINT 

740 PRINT "TOTAL DUE : " 5 TC 
770 PRINT 

780 PRINT 'PRESS SPACE TO RUN AGAIN" 

790 60SUB 810 
300 RUN 

Oi*i«810 LET I $= IHKEYt CO! 

*"*820 IF I$<>" ’ THEN GOTO 810 
830 RETURN 

840 REN PAGE FOR INPUT 
B50 CLS 
860 PRINT 
B7-0 PRINT Nt 
880 PRINT 

390 PRINT SPilOOOi" WATTS' 



3) COLS AIR* 


1880 SOSUB 840 
1890 RETURN 

1900 REN * TELEVISION * 

1910 LET ^"TELEVISION' 

1920 PRINT Nl 

1930 SOSUB 1010 

1940 PRINT "IS IT 1) COLOUR* 

1950 PRINT * OR 2) BLACK AND UNITE’ 
I960 INPUT I 

1970 IF I<1 OR 1)2 THEN GOTO 1940 
1980 IF 1=2 THEN SOTO 2020 
1990 LET Nt=Ntf (COLOUR) " 

2000 LET P=0,4 
2010 GOTO 2040 

2020 LET Nt=Nt+* ( BLACK AND WHITE) ■ 

2030 LET P=0.3 

2040 E05UB 840 

2050 RETURN 

2040 REN * RADIO * 

2070 LET N$=At!C! 

2080 LET P=0.05 
2090 GOSUB 840 
2100 RETURN 

2110 REM i CONVECTOR HEATER * 

2120 LET N*=At(C) 

■2130 LET P=3 
2140 GOSUB 840 
2150 RETURN 

2140 REM * HI-FI STEREO * 

2170 LET N*=At(C) 

2180 LET P=0. 15 
2190 GOSUB 840 
2200 RETURN 
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1 1 


jJJjl* qUi*a1 

< Spectru m timex 2000 £ 

Juujjr ^JUU l l jjl lii I OJJ 

' ' , * 

\ ^ L*l j li 4j I- ±-»^ \ t J *1 I Jl. 

"■ := 

1 675 GOSUB 3000 : 


3000 REM GRAPHICS FOR LIGHT BULB 
3010 CLS : PLOT 175,40: DRAW 0,32: 

BRAN -8, 32,. 7: DRAW 48, 0,-4. 9: 

DRAW -8, -32.. 7: DRAM 0,-32 
3020 PLOT 184,40: DRAW -8, 88 ,.2 
3030 PLOT 199,40: DRAW 8, 88, -.2 
3040 PRINT AT 5,22; INK 6; BRIGHT !;"*«* 
3050 RETURN 


1390 PRINT * 

1400 INPUT I 
1410 IF I<1 OR I >3 THEN GOTO' 1400 
1420 ON I GOTO 1430, 1440, 1490 
1430 LET N*=Nt+* (FULL ON) ‘ 

1440 LET f-3 

1450 GOTO 1510 

1440 LET Nt=Nt+* (HALF ON) * 

1470 LET P=l,5 
1480 GOTO 1510 

1490 LET «=«»♦* (COLD AIR)" 

1500 LET P=0.3 
1510 GOSUB 840 
1520 RETURN 

1530 REM t RADIANT HEATER * 

1540 LET Nt=“RADIANT HEATER" 

1550 PRINT Nt 

1540 GOSUB 1010 

1570 PRINT 'ARE YOU USING ’ 

1580 PRINT ’1,2 OR 3 BARS' 

1590 INPUT I 

1600 IF 3<1 OR 1)3 THEN GOTO 1590 
1610 LET Nt s NI+" (MSTftt di + " BARS)’ 
1620 LET P=! 

1430 GOSUB 340 
1640 RETURN 

1450 REM * LIGHT BULB «■ 

1440 LET NI=AI(C) 

1470 LET P=0.1 
1630 GOSUB 840 
1690 RETURN 

1700 REM * HASHING MACHINE * 

1710 LET Nt="NASHlN5 MACHINE" 

1720 PRINT NJ 

1730 GOSUB 1010 

1740 PRINT MS IT 1) HASHING" 

1750 PRINT ’ 2) SPINNING’ 

1760 PRINT * 3) HEATING* 

1770 INPUT I 

1780 IF Kl DR I >3 THEN GOTO 1770 
11790 ON I GOTO 1800,1830,1860 
1800 LET N*=Nt+” (HASHING) * 

1810 LET P=0.8 
1820 SOTO 1880 

1830 LET N*=Nt+* (SPINNING)” 

1340 LET P=O.B 
1850 GOTO I860 

*1840 LET N$=Nt+* (HEATING!* 

1870 LET P=3 
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| 40 DIM. fitdO, 161 

I 560 BOSUB 1060* (C*mi280*!C=2i + 1330* (C*3 
! +1530*10=41+ 1650* (C=51+l 700* !C*i) +1900* (C= 

7) +2060*!C=S! +21 10*!C=9) +2160*10=16) 

O BIO LET It=KEYt 

A 810 GET It 

• 810 LET It*** 

• 812 IF PEEK (-163S4! >127 THEN SET It 

!■ 810 LET It=INKEYt 

| 1150 GOTO 1160*! 1 = 1) +1200*11=21 +1240* (1=3) 

| 1420 GOTO 1430* (1*1) +1460*! 1=2) +1490*! 1=3) 

I 1790 GOTO 1800*! 1 = 1) + 1830*! 1*21 +1860*! 1=3) 

UUjaAll OUiWJI (jAaj 


P* pi J 


Ujl . All <GLj e L>* r All 4 : Jl&Mnib 

La j ! jAe I II n J)J^J ^ LAjI *1Aj 5 SjJi (jt k 

jju \ = J^Ll!) 

b> ^ 

. Ja.j3<ia-ill Uiij 

<^dl1 ^ 31.ISJ) jl rl^»VI JJfc : M jUI 

-U| 

( (jjjU ^ 1 ■ |1 ' ^ 1 4c^uJ! A jLljJI J^JU T ^jluuJI 

+ ^jjkj 

. jk^fu.i.wL 4Jhl_a^jl jmAj : j *H j\ L* II 

r p LuJubLl (j^jV k l_j 4j^jj : 4aj jL^J I 
JjLuuil 4 jLj < jalLII ^ j ijj^ ^ 

f „ 

\ ^jLliu ^iLui l, fi I 1,1 Ti l iJjHZhJ ^ U^l *U-4 <Jh4-kJ 




JU3j! yjAjj ( SjljLaJk JliHl jji= Lf-^i : 

jajL <> (JSLJI jl -UJI) ^Ui! ^ 


ie 


j| Jjis t 4 J Jjp ^^-lc i^a) 

. &\[ ,^ 7 *\ t 

. SlLi 6 Jaj : JjAuuJ 

. <^1^1 


<1 .J > a 1 1 "il IL> ■ .**■ ^ !l frlijla ALjaU ^1j Lui 

-r u 

L^Jil kbluj , I A Q [ g Ai y^. -~ ^ I 

_ j, x ? 

CjLc k U. a ua. L e ■ * ^ ^ a s j^UslU ' -' 1 k 

„ ■ 

^ J 

^ Jw ^ 1" ft 

* Loi^j 0 ^U^£Jlj (J jr ,? ^'^ n ^ b 

i O i iC» k I i _ jr w +L*_ii V Li rtktj ^LuZlAJI 

1 nr ^7 Llcw ijkJ'ijl kijJJtJl ^jJk XiLuaVL 

■ L^i 

J-^-aJI I till ^ I ffc fll <a,jHaJk : ^liliruV I 

* 

igUutYI 

^ 1 ! #: 

. jjLs jJl (jp.0 LcIjuJuI p k^j_oj ^ kjjflt 

JL2k_^J 4-ji j^ !> f Mrt 4 AjAJ I y 

j^£. ^Jj j) j n n I k ^4 6^cJI , ijiiJi ikjjj 

* okj^l! ft ^-S jClil 

* L j ^ ! l 4 aa£ J ^LijJ k 5 S j^aaaVI 

h* 

■ ( 

JiV 

■■ 

jfjJowwj JaVij Li jJui \ ■ mIS ^ilj^swl : j\ i n$j V I 


+ ut? 




■ ■' 1 J - " 4jj L id jjjl J 4 ajI a * II | ^jj J iLjjJ a ", ^jV k 

^ 4 , i jU J , I l l jjiilj ^_k_Uit ^ *G jin ^-4“^ 

■ (-=4P 



4 j£LuJI ^1 1 n-^ Vi dij:SJUl 

i ^ n Jtii. 4 * L > i ^ 4 .^-y t 4 *^ -v “ a 1 1 j ] 

“i 

■ tAw^ 

; 4 SjaJ I -jj 3JJ jji I ja 

J&ijji A ^Vi ^ <£ji jjaia jt j£_ ^ 

, , ' i d 

jlij 5 ji <+k- jJ L AlJUk Jc. UkiU^j, JlL, ±^_a~ x , t * 

- *Jij <jJLa ^yt 

1 ^ J ^ 4 La < I jit bjUl ^jA«ijjJ_ Y 

) Cy*j^ Lya.\.l lj ^ i ..^ I I dJ j ^3 J 

*_ ^ _ * 

£-J= 1 j | n^f j <_J_lc. 4 4 jVil l £-o L JjJci U p r . , ^ 

. ( oLS 

^i. ^U n j jtdLJl j-i djLoj^i Jii jj J*i J£J_ Y 

. sUivI 

\ t\ j \ ^WJJ j^L.. Ii.h'i i SjjJl :Jliia.VI 5 ^S 

■ n I o(j ia t i 

. ^iji.jJj£Jlj (jjLijj f ^ i .1 = ^ 1 ! ^ SjLJI <ds ■ ^ r*< 1 1 
* ^Lftj Lo Uilrj . a j^. ^ 1 1 4 Jij j 4 H ; | 

' ( f/ 

P 1 *Uji£ 6_La.j : 

jLiJ I * I M t j| A^ljJ I ^LjLlI I i^Liuj i hjLftJI 

■u,. it 

- LiU> LJ Jt <2 jLj^S1 ! LlT ; J^-wJI 

jj^jlJl jCill jguil jit aII 

. 4 i ^-1 aj_i ^l <Gjo *ajjjJ 
j?>* <K ^ j ii^ 1 1 31 j A jj JLH 4 _tiAjJ 1 dL : Jg^J ! jijJ 

' 4 J (>0e) 

4 kKu Ci 1 rii j C*j!j I "1^ I I 

Jjk L jjJi ■_ m .Uljj jijVLi 4 h*jUlcJ! ^uLSjj „ 3LJI 

*j 

, < -» U a n <iL_LUfi £_a L l d . X r j ,Jj^3_^aI1 

J- Lilli tt di d ,.U ^ U I dljjl SjLoJI dt 

■ ^J^j) 'Lii j^jaIL ^l^ji 

^jlJl bjl\\ dlj <jU i_sjjuj d4^UI jjjuLLo 5 Jij ; 

4 _j 1 JlLq 4 "i > r 1. ^ ! ^ 4 lK ^Uii 4 . Cyjl ! jl 

' -Wp' 

J>-^ ^ jia Jijuj juij f 4 j J lUI ^jLlA :ial^JI 

( &\j*- _?±“^ “ 1 ) Sj^'j (jJ JjA^j 

^ “ 

j jJJ tl " 1 ^ ■ r< -V U uijVI -i* ^ : uiy 


^jjJI ^ i/i-s II U j ujJ \ Ljq .*..11 ijj I3 AJ^I jJ! 

^ - Laj-l 5 4 jjL 1 ji- t . 

JaSLUI j'UdJl ii jjM-c4_i_dJ 1 4jjl^ll Ja j^dj l 

,j-lt ^.UaJ! jjjajJlj I* w L . „ U 

j|_Si_i_ij_l ! 

. 4 o£. jjjj 4 _aj j j ^ ■ . 1 rvJ l dj^ ; jJ I 

^ <t^kl*JI :it jmJI 

, d_uij 3^ ^ ^ H j 

J^**) uU>“ J-^ ; jLL^-H 5 iJ u 

,(i_liJ^J| J*OJhO ^ Ufl n J S^LoJI 4 'y^ . t , I [ 

■U| 

JJ«VLj 

(_yjlij_J . ^^LualaJI b J-=^J ^J-Lcr 4ji] I -Ul* J A I I 

jl* J£J 33 jj 1|1 jl JLl^UI 4 JOfcJkJ u* , Al l 

xdaLoJI 


. 4 . 


^Lilj Li i ji jjJJ (^iLia : 4iUaJ! 

. (joule/]) J»JL 

^ r i.'s tJ li\ 4iUJ I : d£ jr^vl ! is Lb 

r Jj^JL 

[ J^bJI 

. < 1 ■ > . j. jLjJ I LofJ ^jILaj ^1 3jj iiL_MjJ1 ji 

j) ^jjLj^SJI jlai] i Jji^ai -LaJlc L^ldjlLa i jLi ! JjIjlJI 

*; 

1 n II 4 Jaj JiJ J[jjioJI Ji*il! : 

- CiiJiJL 

^jl ^ -4-J^ : CJ^I 

. jjjjI ^ i £±Jz 1 jC3 <ui 

* H 

j,^Aija ^ 1 na ; ^LigLbJ I ^ jU 5 A£lji 

^Uil ujj ^jjj 0 -* { JL^. jt * ^ 

flkj ^ iillJl :4iLbJ\ U 

(jt ij ^u V isUaJl 3>] j J J * "j V Lblj 3 LL 0 

l J! t J J ( ^ 

i_r^j -^>>1* ^ J cjlo ; i?j 4iil 

. Lijjb 

<GJLa. ^ jaij ^1 ^jUS ^ MI^ 1i jJ 4j d O L=k J J' ^ 

J < flkTm K_>aj |v1 LSL* 


r~ 



t j ** t lj \ j/& Y A 


£bb)ji OLS^ix 


^Lay (>. U ft.ii i Sj^Jl u! 

„ <j 11 ^jJ 1 cUj^j I^JajXu 

5 jJ si^in^ 


J+j ^ ^ • <U.ljjjl £jJ ^ j" Ji-i" 

: i o- M ■ u t e ii:i ‘ , -J l ^ i ' 

Jj-. t#..=Y-x£*- = Jiijl 


WjYTe 


jiill 




= Sjjilt 


<^u j#& ji>u rr ^ 


^Jlu '*■ 1 J '^J ^ ^ A ■ ..N, > M ^u^Ij ib£ 

*■' ^ uj GJ L i U ^ ■* ■ lljll f j lUjJI 

* ^ + -"*"i tW ■ £ ■ ■ ■ ■ 

<lu)l lJ^Io ^ILJi iJIf ^i ^ i m M 

..l> iwLjj_sJ ! - cjUlII i^iVI 

^ (_p^ ) 4 _JLuiJI 7l!1 i j uUj) Ai*wj 

ia-lijjl <iwJ1 i ^ t-Mjiiil 4ihJI otpa ^jlcr ^ 

. -_Tj ' * i LujI 

* F* 

^jL- ya~ l i <Jlui ‘“ " ^. ln ) II uijl^ Ijl Lil 

. ■"■V I & >L) Ul£ <iLi jJ I 




r 



Going further: 

Books to read: 

Physics Alive 
by Peter Warren 
(John Murray) 

Physics for You l &2 
by Keith Johnson 
(Hutchinson) 

The Young Scientist 
Book of Electricity 
by Phil Chapman 
(Usbome) 

Physics for All 
byJ.J. Wellington 
(ST(P)) 
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